home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / HyperQuest 1.03 ••• / HyperQuest 1.03 еее / card_31445.txt < prev    next >
Text File  |  1990-10-02  |  6KB  |  282 lines

  1. -- card: 31445 from stack: in.03 –µ–µ–µ
  2. -- bmap block id: 3005
  3. -- flags: 0000
  4. -- background id: 2766
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   send cardOpened to background
  9. end openCard
  10.  
  11. on move
  12.   global direction,pillarEat,trollDead,blastDam,holeDam,chase,blasting
  13.   if direction = "east" or direction = "rear" then
  14.     if blastDam = true then
  15.       go to card id 26754
  16.     else
  17.       go to card id 27307
  18.     end if
  19.     exit move
  20.   end if
  21.   if direction = "west" or direction = "down" or direction = "south" then
  22.     beep
  23.     put "Sorry, no swimming allowed in this cave." into field 3
  24.     exit move
  25.   end if
  26.   if direction = "enter" then
  27.     go to card id 31944
  28.     exit move
  29.   end if
  30.   pass move
  31. end move
  32.  
  33.  
  34. on closeCard
  35.   set the cursor to 4
  36.   put "" into field 3
  37. end closeCard
  38.  
  39. on take
  40.   global object,carried
  41.   -- remember to update carried if you do not pass take
  42.   pass take
  43. end take
  44.  
  45. on drop
  46.   global object,dropRoom,carried
  47.   answer "Drop object onto ledge, or in the water?" with "water"or"on ledge"
  48.   if it="water" then put "33443" into dropRoom
  49.   -- remember to update carried if you do not pass drop
  50.   pass drop
  51. end drop
  52.  
  53. on use
  54.   global object,carried
  55.   -- update carried if use results in loss of object
  56.   pass use
  57. end use
  58.  
  59.  
  60.  
  61.  
  62.  
  63. -- part 16 (button)
  64. -- low flags: 80
  65. -- high flags: 2000
  66. -- rect: left=210 top=230 right=266 bottom=244
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 9301 / 9301
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: knife
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   global takeFlag,examFlag,object,cardID
  78.   put the name of the target into object
  79.   if takeFlag = true
  80.   then send take to card id cardID
  81. else put "a knife" into field 3
  82. put false into examFlag
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 17 (button)
  88. -- low flags: 80
  89. -- high flags: 2000
  90. -- rect: left=74 top=230 right=266 bottom=108
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 1015 / 1015
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: nodule
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   global takeFlag,examFlag,object,cardID
  102.   put the name of the target into object
  103.   if takeFlag = true
  104.   then send take to card id cardID
  105. else put "a silicon sphere" into field 3
  106. put false into examFlag
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 18 (button)
  112. -- low flags: 80
  113. -- high flags: 2000
  114. -- rect: left=176 top=230 right=266 bottom=210
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 14953 / 14953
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: ladder
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   global takeFlag,examFlag,object,cardID
  126.   put the name of the target into object
  127.   if takeFlag = true
  128.   then send take to card id cardID
  129. else put "a rope ladder" into field 3
  130. put false into examFlag
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 19 (button)
  136. -- low flags: 80
  137. -- high flags: 2000
  138. -- rect: left=143 top=230 right=266 bottom=177
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 1019 / 1019
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: bomb
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   global takeFlag,examFlag,object,cardID
  150.   put the name of the target into object
  151.   if takeFlag = true
  152.   then send take to card id cardID
  153. else put "a time bomb" into field 3
  154. put false into examFlag
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part 20 (button)
  160. -- low flags: 80
  161. -- high flags: 2000
  162. -- rect: left=40 top=230 right=266 bottom=74
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 24317 / 24317
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: key
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   global takeFlag,examFlag,object,cardID
  174.   put the name of the target into object
  175.   if takeFlag = true
  176.   then send take to card id cardID
  177. else put "a key" into field 3
  178. put false into examFlag
  179. end mouseUp
  180.  
  181.  
  182.  
  183. -- part 21 (button)
  184. -- low flags: 80
  185. -- high flags: 2000
  186. -- rect: left=109 top=230 right=266 bottom=143
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 7012 / 7012
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: gem
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   global takeFlag,examFlag,object,cardID
  198.   put the name of the target into object
  199.   if takeFlag = true
  200.   then send take to card id cardID
  201. else put "a glowing gem" into field 3
  202. put false into examFlag
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 34 (button)
  208. -- low flags: 00
  209. -- high flags: 0000
  210. -- rect: left=91 top=52 right=87 bottom=135
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: 
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   global examFlag,direction,cardID,takeFlag
  222.   if takeFlag then
  223.     beep
  224.     put "You have to get across the water to use that door!" into field 3
  225.     put false into takeFlag
  226.   else
  227.     put "A ledge and doorway on the west wall, across the water." into field 3
  228.     put false into examFlag
  229.   end if
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 41 (button)
  235. -- low flags: 00
  236. -- high flags: 0000
  237. -- rect: left=169 top=192 right=226 bottom=245
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: 
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   global examFlag,direction,cardID,takeFlag
  249.   if examFlag then
  250.     put "a giant wash tub is floating here." into field 3
  251.     put false into examFlag
  252.     exit mouseUp
  253.   else
  254.     if takeFlag then
  255.       beep
  256.       put false into takeFlag
  257.       put "The giant wash tub is too heavy for you to carry." into field 3
  258.       exit mouseUp
  259.     else
  260.       put "enter" into direction
  261.     end if
  262.   end if
  263.   send move to card id cardID
  264. end mouseUp
  265.  
  266.  
  267.  
  268. -- part contents for background part 25
  269. ----- text -----
  270. East Ledge
  271. (looking west)
  272.  
  273. -- part contents for background part 24
  274. ----- text -----
  275. You are on the east ledge of the great chamber which is now flooded with water nearly to the level of the ledge.  A giant wash tub is floating in the water here.  There is a doorway to the east.
  276.  
  277.  
  278.  
  279.  
  280. -- part contents for background part 36
  281. ----- text -----
  282. 1